** Replication data for Kreutz & Nussio "Destroying trust in government: Effects of a broken pact among Colombian ex-combatants":

** Figure 1 (data: Kreutz_Nussio_violence)**

line homiyesdemob hominodemob ano if ano>2002 & ano<2015, sort lcolor(black black) lpattern(dash solid) ///
ytitle("Homicide rate per 100.000 inhabitants") xtitle("Year")  ///
xscale(range(2003 2014) titlegap(1)) xlabel(2003(1)2014) graphregion(color(white)) ///
note("Source: CEDE Panel Data and Alto Comisionado para la Paz") ///
legend(label(1 "Demobilization Municipalities") label(2 "Rest of Colombia")) ///
title("Figure 1: Municipality homicide rate trends, 2003-2014") 


** Figure 2 (data: Kreutz_Nussio_survey)**

rdplot trust_state time if time>-19, p(1) kernelfn(tri) h(4.476) ci(95) shade 
rdplot trust_reint time if time>-19, p(1) kernelfn(tri) h(5.41) ci(95) shade 
rdplot trust_inst time if time>-19, p(1) kernelfn(tri) h(3.380) ci(95) shade 


** Figure 3 (data: Kreutz_Nussio_survey)**

ologit trust_democracy para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P1
ologit trust_corruption para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P2
ologit trust_hr para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P3
ologit trust_conflictsettle para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P4
ologit trust_finances para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P5
ologit trust_security para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P6
ologit trust_unemployment para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P7
ologit trust_poverty para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep)
est store P8

coefplot (P1, label(Democracy) msymbol(O) mcolor(black) mfcolor(white)) (P2, label (Corruption) msymbol(T) mcolor(black) mfcolor(white)) /// 
(P3, label(Human rights) msymbol(S) mcolor(black) mfcolor(white)) (P4, label(Conflict) msymbol(D) mcolor(black) mfcolor(white)) ///
 (P5, label(Security) msymbol(O) mcolor(black) mfcolor(black)) (P6, label (Economy) msymbol(T) mcolor(black) mfcolor(black)) ///
 (P7, label(Unemployment) msymbol(S) mcolor(black) mfcolor(black)) (P8, label(Poverty) msymbol(D) mcolor(black) mfcolor(black)), ///
 drop( _cons age female commander ideologytrain education urban econsituation move excomm_contact time2) byopts(xrescale) ciopts(lwidth(*2) ///
 lcolor(black)) graphregion(fcolor(white)) lcolor(black) grid(between glcolor(black) glpattern(dot)) xline(0, lcolor(black) lwidth(thin) lpattern(dash))
 
 
 ** Figure 4 (data: Kreutz_Nussio_survey)**
 
ologit trust_state extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D1
ologit trust_reint extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D2
reg trust_inst extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D3
ologit trust_democracy extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D4
ologit trust_corruption extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D5
ologit trust_hr extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D6
ologit trust_conflictsettle extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D7
ologit trust_finances extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D8
ologit trust_security extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D9
ologit trust_unemployment extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D10
ologit trust_poverty extradited_exp##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep)
est store D11

coefplot (D1, label(Trust in state) msymbol(+) mcolor(black) mfcolor(black)) (D2, label (Trust in reintegration) msymbol(x) mcolor(black) mfcolor(black)) ///
(D3, label(Trust in institutions) msymbol(p) mcolor(black) mfcolor(black)) (D4, label(Democracy) msymbol(o) mcolor(black) mfcolor(white)) /// 
(D5, label (Corruption) msymbol(t) mcolor(black) mfcolor(white)) (D6, label(Human rights) msymbol(s) mcolor(black) mfcolor(white)) ///
 (D7, label(Conflict) msymbol(d) mcolor(black) mfcolor(white)) (D8, label(Security) msymbol(o) mcolor(black) mfcolor(black)) /// 
 (D9, label (Economy) msymbol(t) mcolor(black) mfcolor(black)) (D10, label(Unemployment) msymbol(s) mcolor(black) mfcolor(black)) /// 
 (D11, label(Poverty) msymbol(d) mcolor(black) mfcolor(black)), drop( _cons age female commander ideologytrain education urban econsituation move excomm_contact time2) ///
 byopts(xrescale) ciopts(lwidth(*1) lcolor(black)) graphregion(fcolor(white)) lcolor(black) grid(between glcolor(black) glpattern(dot)) /// 
 xline(0, lcolor(black) lwidth(thin) lpattern(dash))
 
 
  ** Table 1 (data: Kreutz_Nussio_survey)**


sum trust_state if para_demob==1 & postextradito==0
sum trust_reint if para_demob==1 & postextradito==0
sum trust_inst if para_demob==1 & postextradito==0 
sum trust_centralgov if para_demob==1 & postextradito==0 
sum trust_judiciary if para_demob==1 & postextradito==0 
sum trust_supremecourt if para_demob==1 & postextradito==0 
sum trust_congress if para_demob==1 & postextradito==0 
sum trust_parties if para_demob==1 & postextradito==0 
sum trust_military if para_demob==1 & postextradito==0 
sum trust_police if para_demob==1 & postextradito==0 

sum trust_democracy if para_demob==1 & postextradito==0 
sum trust_corruption if para_demob==1 & postextradito==0 
sum trust_hr if para_demob==1 & postextradito==0 
sum trust_conflictsettle if para_demob==1 & postextradito==0 
sum trust_finances if para_demob==1 & postextradito==0 
sum trust_security if para_demob==1 & postextradito==0 
sum trust_unemployment if para_demob==1 & postextradito==0 
sum trust_poverty if para_demob==1 & postextradito==0 

sum trust_state if para_demob==0 & postextradito==0
sum trust_reint if para_demob==0 & postextradito==0
sum trust_inst if para_demob==0 & postextradito==0 
sum trust_centralgov if para_demob==0 & postextradito==0 
sum trust_judiciary if para_demob==0 & postextradito==0 
sum trust_supremecourt if para_demob==0 & postextradito==0 
sum trust_congress if para_demob==0 & postextradito==0 
sum trust_parties if para_demob==0 & postextradito==0 
sum trust_military if para_demob==0 & postextradito==0 
sum trust_police if para_demob==0 & postextradito==0

sum trust_democracy if para_demob==0 & postextradito==0 
sum trust_corruption if para_demob==0 & postextradito==0 
sum trust_hr if para_demob==0 & postextradito==0 
sum trust_conflictsettle if para_demob==0 & postextradito==0 
sum trust_finances if para_demob==0 & postextradito==0 
sum trust_security if para_demob==0 & postextradito==0 
sum trust_unemployment if para_demob==0 & postextradito==0 
sum trust_poverty if para_demob==0 & postextradito==0 

  ** Table 2 (data: Kreutz_Nussio_survey)**
  
rdrobust trust_state time, all
rdrobust trust_reint time, all
rdrobust trust_inst time, all

  ** Table 3 (data: Kreutz_Nussio_survey)**
  
ologit trust_state postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep) 
ologit trust_state postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==0, cluster(reside_dep) 
ologit trust_state para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep) 

ologit trust_reint postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep) 
ologit trust_reint postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==0, cluster(reside_dep) 
ologit trust_reint para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep) 

reg trust_inst postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==1, cluster(reside_dep) 
reg trust_inst postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 if para_demob==0, cluster(reside_dep) 
reg trust_inst para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep) 


*** ROBUSTNESS ***

*** Key estimations in the article - without control variables ***

ologit trust_state para_demob##postextradito, cluster(reside_dep) 
ologit trust_reint para_demob##postextradito, cluster(reside_dep) 
reg trust_inst para_demob##postextradito, cluster(reside_dep) 

*** OLS regressions - full model ***

reg trust_state para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep) 
reg trust_reint para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2, cluster(reside_dep) 

*** Estimations with additional controls ***

reg trust_state para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 confl_dead_8806 paras_dead8806 bakrimtroops2007, cluster(reside_dep) 
reg trust_reint para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 confl_dead_8806 paras_dead8806 bakrimtroops2007, cluster(reside_dep) 
reg trust_inst para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 confl_dead_8806 paras_dead8806 bakrimtroops2007, cluster(reside_dep) 

ologit trust_state para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 confl_dead_8806 paras_dead8806 bakrimtroops2007, cluster(reside_dep) 
ologit trust_reint para_demob##postextradito age female commander ideologytrain education urban econsituation move excomm_contact time2 confl_dead_8806 paras_dead8806 bakrimtroops2007, cluster(reside_dep) 

*** Coarsened Exact Matching sample, with estimations ***

cem age(#3) female commander ideologytrain education urban econsituation move excomm_contact, treatment(postextradito) 

reg trust_state para_demob##postextradito time2 if cem_matched==1, cluster(reside_dep)
reg trust_state para_demob##postextradito time2 confl_dead_8806 paras_dead8806 bakrimtroops2007 if cem_matched==1, cluster(reside_dep)
reg trust_reint para_demob##postextradito time2 if cem_matched==1, cluster(reside_dep)
reg trust_reint para_demob##postextradito time2 confl_dead_8806 paras_dead8806 bakrimtroops2007 if cem_matched==1, cluster(reside_dep)
reg trust_inst para_demob##postextradito time2 if cem_matched==1, cluster(reside_dep)
reg trust_inst para_demob##postextradito time2 confl_dead_8806 paras_dead8806 bakrimtroops2007 if cem_matched==1, cluster(reside_dep)



 